home *** CD-ROM | disk | FTP | other *** search
/ Belgian Amiga Club - ADF Collection / BS1 part 23.zip / BS1 part 23 / Superbase 4 ser 12C00584^1.adf / Trading / STKRRE.SBP < prev    next >
Text File  |  1991-03-13  |  3KB  |  93 lines
  1. SBP
  2.  ÿ½   STKRRE
  3.  ÿ½   Stock Trading Balance report
  4.  ÿ½   Last updated Jan 21, 90
  5.  
  6.  ÿ³ÿ_ÿwrerror
  7.  ÿ¡sktr%ÿ1ÿwm0:ÿ½ If not first time then no need to open + dim
  8.  ÿ×skt%(40),skt$(40)
  9.  
  10. m0:
  11.  sktr%ÿ1
  12.  hd1$ÿ"Stock Trading Balances at "ÿÿ(ÿQ,"mmm dd,yy")
  13.  hd12$ÿ"Ref: STKRRE"
  14.  hd2$ÿ"Stock Key                Company                              Stock Type"
  15.  hd3$ÿ"Date      b/s Ref    Quantity  Curr units      Price  US$ Value  Commission    Total Due"
  16.  hd4$ÿ"--------- --- ------ --------  ----------  ---------  ---------  ----------  -----------"
  17.  
  18. m1: 
  19.  ÿÁUSD Value.TRANS,Comm_Value.TRANS,Total_Due.TRANS
  20.  ÿ}ÿÁ
  21.  ÿ{@52;"   =========  ==========  ==========="
  22.  ÿ{@1;"Totals for Stock Trading Balance Report";@54;&6.2ÿlUSD Value.TRANS;@67;&11ÿlComm_Value.TRANS;@79;&6.2ÿlTotal_Due.TRANS
  23.  ÿ{@52;"   =========  ==========  ==========="
  24.  
  25.  tkt%ÿÿlComm_Value.TRANS:hd2$ÿ"":hd3$ÿ"":hd4$ÿ""
  26.  ÿ‘:ÿ{
  27.  ÿ{@1;"Commissions by Stock";@33;"Commission  % of total"
  28.  ÿ{@33;"----------  ----------"
  29.  ÿ›i%ÿ1ÿqsktr%ÿ1
  30. ÿ{skt$(i%);@32;&11skt%(i%);@47;ÿ(skt%(i%)ÿ100ÿtkt%,"999.00%")
  31.  ÿ±i%
  32.  ÿ{@33;"==========  =========="
  33.  ÿ{@32;&11tkt%;@47;ÿ(100,"999.00%")
  34.  ÿ{@33;"==========  =========="
  35.  
  36.  ÿ’ÿÁ
  37.  
  38.  ÿŸ
  39.  ÿ{@1;hd1$;@65;hd12$
  40.  ÿ{
  41.  ÿ{@1;hd2$
  42.  ÿ{@1;hd3$
  43.  ÿ{@1;hd4$
  44.  ÿ’ÿŸ
  45.  
  46.  ÿžStock_Key.TRANS,USD Value.TRANS,Comm_Value.TRANS,Total_Due.TRANS
  47.  ÿ€ÿžStock_Key.TRANS
  48.  ÿ{
  49.  ÿ{@1;&24Stock_Key.TRANS;@26;&36Company Name.STOCKS;@63;&16Stock_Type.STOCKS
  50.  ÿ’ÿž
  51.  
  52.  ÿ}ÿžStock_Key.TRANS
  53.  ÿ{@52;"   ---------  ----------  -----------"
  54.  ÿ{@1;"Totals for ";@13;&15ÿž;@55;&12ÿlUSD Value.TRANS;&11ÿlComm_Value.TRANS;@80;&12ÿlTotal_Due.TRANS
  55.  ÿ{@52;"   ---------  ----------  -----------"
  56.  skt%(sktr%)ÿÿlcomm_value.TRANS:skt$(sktr%)ÿÿž
  57.  sktr%ÿsktr%ÿ1
  58.  ÿ’ÿž
  59.  
  60.  ÿÉ@1;&10Trans_Date.TRANS;@12;&1Trans_Type.TRANS;@14;&7Transaction ref.TRANS;@22;&9Quantity.TRANS;
  61.  @32;&8Units.CURRENCY;@41;&12Stock_Price.TRANS;@54;&10USD Value.TRANS;@65;&11Comm_Value.TRANS;@78;&11Total_Due.TRANS
  62.  ÿÐStock_Key.TRANSÿStock_Key.STOCKSÿ Currency.CURRENCYÿCurrency.TRANS
  63.  ÿµStock_Key.TRANS,Transaction ref.TRANS
  64.  
  65. m2: 
  66.  ÿ¡p$ÿ"d"ÿp
  67. ÿÊÿËss14$
  68. ÿÏÿ¥ÿÿß
  69.  ÿ’ÿ¡
  70.  
  71. repeat: 
  72.  ÿÂms3$,"",135,a%
  73.  ÿ¡a%ÿ0ÿpÿwrexit
  74.  ÿ¡p$ÿ"p"ÿpÿ¹;
  75.  ÿwm1
  76.  
  77. rexit: 
  78.  ÿ„"menu"
  79.  
  80. rerror:ÿ½ On error
  81.  res%ÿ0
  82.  ÿ¡ÿ&ÿ11ÿp
  83. ÿÂms21$,ms22$,130,a%:ÿ¡a%ÿ1ÿpres%ÿ1
  84.  ÿ^ÿ¡ÿ&ÿ27ÿp
  85. ÿÂms11$,ms12$,100,a%:res%ÿ2
  86.  ÿ^
  87. ÿÂÿ((ÿ&),"",113,a%:res%ÿ1
  88.  ÿ’ÿ¡
  89.  ÿ¡res%ÿ1ÿpÿyrepeat 
  90.  ÿ¡res%ÿ2ÿpÿyrexit
  91.  ÿwrexit
  92.  
  93.